home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / upsmft.zip / CALC.PRG next >
Text File  |  1986-05-13  |  3KB  |  103 lines
  1. ******************* CALC.PRG (CALCULATIONS FOR SUMMARY.PRG)*****
  2. *
  3. *
  4. ******** GROUND SERVICE ***********
  5. *
  6. *
  7. ***********************************************
  8.  SUM SHIPCHARGE TO S1 FOR ZONE="2"                 
  9.  COUNT FOR ZONE="2" TO Z1
  10.  SUM POUNDS TO P1 FOR ZONE="2"
  11. ************************************************
  12.  SUM SHIPCHARGE TO S2 FOR ZONE="3"
  13.  COUNT FOR ZONE="3" TO Z2
  14.  SUM POUNDS TO P2 FOR ZONE="3"    
  15. ************************************************
  16.  SUM SHIPCHARGE TO S3 FOR ZONE="4"
  17.  COUNT FOR ZONE="4" TO Z3
  18.  SUM POUNDS TO P3 FOR ZONE="4"
  19. ************************************************
  20.  SUM SHIPCHARGE TO S4 FOR ZONE="5"
  21.  COUNT FOR ZONE="5" TO Z4
  22.  SUM POUNDS TO P4 FOR ZONE="5"
  23. ************************************************ 
  24.  SUM SHIPCHARGE TO S5 FOR ZONE="6"
  25.  COUNT FOR ZONE="6" TO Z5
  26.  SUM POUNDS TO P5 FOR ZONE="6"
  27. ************************************************
  28.  SUM SHIPCHARGE TO S6 FOR ZONE="7"
  29.  COUNT FOR ZONE="7" TO Z6
  30.  SUM POUNDS TO P6 FOR ZONE="7"
  31. ************************************************
  32. SUM SHIPCHARGE TO S7 FOR ZONE="8"
  33. COUNT FOR ZONE="8" TO Z7
  34. SUM POUNDS TO P7 FOR ZONE="8"
  35. ************************************************
  36. SUM SHIPCHARGE TO S8 FOR ZONE="51"
  37. COUNT FOR ZONE="51" TO Z8
  38. SUM POUNDS TO P8 FOR ZONE="51"
  39. ***********************************************
  40. SUM SHIPCHARGE TO S18 FOR ZONE="52"
  41. COUNT FOR ZONE="52" TO Z18
  42. SUM POUNDS TO P18 FOR ZONE="52"
  43. ***********************************************
  44. SUM SHIPCHARGE TO S19 FOR ZONE="53"
  45. COUNT FOR ZONE="53" TO Z19
  46. SUM POUNDS TO P19 FOR ZONE="53"
  47. ***********************************************
  48. *
  49. *
  50. ************* AIR SERVICE **********************
  51. SUM SHIPCHARGE TO S9 FOR ZONE="A"
  52. COUNT FOR ZONE="A" TO Z9
  53. SUM POUNDS TO P9 FOR ZONE="A"
  54. ************************************************
  55. SUM SHIPCHARGE TO S10 FOR ZONE="D"
  56. COUNT FOR ZONE="D" TO Z10
  57. SUM POUNDS TO P10 FOR ZONE="D"
  58. ***********************************************
  59. SUM SHIPCHARGE TO S11 FOR ZONE="E"
  60. COUNT FOR ZONE="E" TO Z11
  61. SUM POUNDS TO P11 FOR ZONE="E"
  62. **********************************************
  63. SUM SHIPCHARGE TO S12 FOR ZONE="K"
  64. COUNT FOR ZONE="K" TO Z12
  65. SUM POUNDS TO P12 FOR ZONE="K"
  66. *************************************************
  67. SUM SHIPCHARGE TO S13 FOR ZONE="L"
  68. COUNT FOR ZONE="L" TO Z13
  69. SUM POUNDS TO P13 FOR ZONE="L"
  70. ************************************************
  71. SUM SHIPCHARGE TO S14 FOR ZONE="M"
  72. COUNT FOR ZONE="M" TO Z14
  73. SUM POUNDS TO P14 FOR ZONE="M"
  74. *
  75. ******** EUROPE AIR RATES ******
  76. *
  77. SUM SHIPCHARGE TO S15 FOR ZONE="P"
  78. COUNT FOR ZONE="P" TO Z15
  79. SUM POUNDS TO P15 FOR ZONE="P"
  80. ****************************************
  81. SUM SHIPCHARGE TO S16 FOR ZONE="R"
  82. COUNT FOR ZONE="R" TO Z16
  83. SUM POUNDS TO P16 FOR ZONE="R"
  84. ***************************************
  85. SUM SHIPCHARGE TO S17 FOR ZONE="T"
  86. COUNT FOR ZONE="T" TO Z17
  87. SUM POUNDS TO P17 FOR ZONE="T"
  88. ***** TOTALS *************************************
  89. COUNT FOR AOD="X" TO A1
  90. COUNT FOR CODCHARGE>0 TO A2
  91. SUM AODCHARGE  TO A3
  92. SUM CODCHARGE  TO A4
  93. SUM DVCHARGE TO A12
  94. A13=A12/.25
  95. A5=Z1+Z2+Z3+Z4+Z5+Z6+Z7+Z8+Z18+Z19
  96. A6=P1+P2+P3+P4+P5+P6+P7+P8+P18+P19
  97. A7=S1+S2+S3+S4+S5+S6+S7+S8+S18+S19
  98. A8=Z9+Z10+Z11+Z12+Z13+Z14+Z15+Z16+Z17
  99. A9=P9+P10+P11+P12+P13+P14+P15+P16+P17
  100. A10=S9+S10+S11+S12+S13+S14+S15+S16+S17
  101. A11=A3+A4+A7+A10
  102. **************************************************
  103.